home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / Itch / work_info / WImage.dcr / 00017_Extension Parent.ls < prev    next >
Encoding:
Text File  |  1999-03-07  |  645 b   |  27 lines
  1. property sp, extOffset, pos, midBoardPos, hitName, state, boardPos, boardlimit
  2.  
  3. on new me, asp, aPos, aNum
  4.   me.sp = asp + 2
  5.   extOffset = point(the width of sprite me.sp, 0)
  6.   me.pos = aPos + extOffset
  7.   set the loc of sprite the sp of me to me.pos
  8.   me.midBoardPos = aNum
  9.   me.hitName = #board
  10.   me.state = #bend
  11.   me.boardPos = midBoardPos
  12.   me.boardlimit = midBoardPos
  13.   return me
  14. end
  15.  
  16. on GetBabyHitList me, asp
  17.   tempList = []
  18.   if sprite asp intersects me.sp then
  19.     add(tempList, me)
  20.     add(tempList, me.hitName)
  21.     add(tempList, me.state)
  22.     add(tempList, me.boardPos)
  23.     add(tempList, me.boardlimit)
  24.   end if
  25.   return tempList
  26. end
  27.